Function BerekenBTW(TotaalInclusief As Double, BTWPercentageCel As Range) As Double
    On Error GoTo Fout
    Dim BTWPercentage As Double
    BTWPercentage = BTWPercentageCel.Value
    BerekenBTW = TotaalInclusief - (TotaalInclusief / (1 + BTWPercentage))
    Exit Function
Fout:
    BerekenBTW = CVErr(xlErrValue)
End Function